alert("Para ejecutar VTM su monitor debe estar configurado a 32.768 colores como mínimo")
2:
alert("To run VTM your display must be configured at least to 32.768 colors")
3:
alert("Pour exécuter VTM votre moniteur doit être configuré au minimum à 32.768 couleurs")
end case
quit()
else
set the exitLock to 0
set sCadena to EMPTY
set nError to 0
set c1 to the number of member "ojo"
set c2 to the number of member "ojomask"
set c3 to the number of member "boca"
set c4 to the number of member "bocamask"
set c5 to the number of member "go"
set c6 to the number of member "gomask"
set the text of member "password" to " "
set bPresMod1 to 1
set nVolumAnt to the soundLevel
set bAyuda to 1
set tIn to []
set tOut to []
set tMovie to []
set tF6 to [32420, 32780, 3]
set tInOrg to [110760, 59925, 106640, 65930, 102775, 154535, 165780, 157455, 193320]
set tOutOrg to [113705, 64000, 110135, 71190, 104765, 156630, 168460, 160935, 197600]
set AzControl to "indy"
case nIdioma of
1:
set sMensaje01 to "No se pueden capturar más de 100 imágenes. Para borrar todas la imágenes ejecute 'delete' en el módulo IPEP o elimine ficheros BMP del directorio " & sPathIni & "snapshot"
set sMensaje02 to "Imposible abrir fichero"
set sMensaje03 to "No hay ninguna fotografía capturada"
set sMensaje04 to "No hay ninguna secuencia grabada"
2:
set sMensaje01 to "Saisie limitée à 100 images. Pour supprimer toutes les images, exécuter 'delete' dans le module IPEP ou suprimer les dossiers BMP du repertoire " & sPathIni & "snapshot"
set sMensaje02 to "Impossible d'ouvrir le dossier"
set sMensaje03 to "Pas de photo saisie"
set sMensaje04 to "Pas de séquence enregistrée"
3:
set sMensaje01 to "Capture limited to 100 images. To delete all images execute 'delete' in the IPEP module or cancel BMP files from directory " & sPathIni & "snapshot"
set sMensaje02 to "Impossible to open file"
set sMensaje03 to "No photo captured"
set sMensaje04 to "No sequence recorded"
end case
set oFichero to new(xtra("fileio"))
openFile(oFichero, sPathIni & "jam", 1)
if status(oFichero) = 0 then
set bDebug to 1
else
set bDebug to 0
end if
closeFile(oFichero)
openFile(oFichero, sPathIni & "vtmprefs.ini", 1)
set bPrimeraVez to status(oFichero) = -43
if status(oFichero) = 0 then
set sLinia to readLine(oFichero)
if sLinia = EMPTY then
set bVideoNormal to 1
set nVolum to 1
set sModuloInicio to "1"
else
set bVideoNormal to value(char 1 of sLinia)
set nVolum to value(char 2 of sLinia)
set sModuloInicio to char 3 of sLinia
end if
else
set bVideoNormal to 1
set nVolum to 1
set sModuloInicio to "1"
end if
closeFile(oFichero)
set oFichero to 0
if (bVideoNormal <> 1) and (bVideoNormal <> 0) then
set bVideoNormal to 1
end if
if (nVolum < 0) or (nVolum > 7) then
set nVolum to the soundLevel
end if
if (value(sModInicio) < 1) or (value(sModInicio) > 8) then
set sModInicio to "1"
end if
if value(sModuloInicio) > 4 then
set NumCd to 2
else
set NumCd to 1
end if
set sModuloInicio to "mod-" & sModuloInicio
set the soundLevel to nVolum
go("video intro" & bVideoNormal)
end if
end
on stopMovie
global bDebug
set the exitLock to not bDebug
end
on mayusculas letra
set sRetorno to EMPTY
set nAscii to charToNum(letra)
if (nAscii > 64) and (nAscii < 91) then
set sRetorno to letra
else
if (nAscii > 96) and (nAscii < 123) then
set sRetorno to numToChar(nAscii - 32)
end if
end if
return sRetorno
end
on coordenadas
put "if the mouseV >= " & the locV of sprite 6 & " and the mouseH >= " & the locH of sprite 6 & " and the mouseV <= " & the locV of sprite 6 + the height of sprite 6 & " and the mouseH <= " & the locH of sprite 6 + the width of sprite 6 & " then"
